home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / eudoraMenu.tcl < prev    next >
Text File  |  1997-06-17  |  24KB  |  877 lines
  1. #     <nowrap>
  2. # Built for Eudora
  3.  
  4. # Class message: A message
  5. # Elements:
  6. #     field by name
  7. # Properties:
  8. #     body  string  -- the body of the message
  9. #     priority  integer  -- the priority
  10. #     label  integer  -- the index of the label
  11. #     status  unread/already read/replied/forwarded/redirected/not sendable/sendable/queued/sent/never sent  -- the message status
  12. #     sender  string  -- the sender as appearing in the message summary
  13. #     date  string  [r/o]  -- the date as appearing in the message summary
  14. #     subject  string  -- the subject as appearing in the message summary
  15. #     size  integer  [r/o]  -- the size of the message
  16. #     outgoing  boolean  [r/o]  -- is the message is outgoing?
  17. #     signature  none/standard/alternate  -- which signature the message should have
  18. #     QP  boolean  -- is Eudora allowed to encode text?
  19. #     return receipt  boolean  -- is a return receipt is requested?
  20. #     wrap  boolean  -- should the text be wrapped when sent?
  21. #     tab expansion  boolean  -- should tabs get expanded to spaces?
  22. #     keep copy  boolean  -- should a copy should be kept after message is sent?
  23. #     preserve macintosh info  boolean  -- should Macintosh information always be sent with attachments?
  24. #     attachment encoding  AppleDouble/AppleSingle/BinHex/uuencode  -- the type of encoding to use for attachments
  25. #     show all headers  boolean  -- should all headers be visible?
  26. #     transliteration table  integer  -- the resource id of the transliteration table
  27. #     will be fetched  boolean  -- will the message be [re]fetched on next check?
  28. #     will be deleted  boolean  -- will the message be deleted from server on next check?
  29. # 
  30.  
  31. if $startingUp {
  32.     set mailMenu         "•138"
  33.     addMenu mailMenu
  34.     return
  35. }
  36.  
  37.  
  38.  
  39. proc mailMenu {} {}
  40. proc dummyMail {} {}
  41.  
  42.  
  43. addMode Mail dummyMail {} mailMenu
  44.  
  45. if {![info exists trashName]} {set trashName "Trash"}
  46.  
  47. newModeVar Mail prefixString {> } 0
  48. newModeVar Mail wordBreak {(\$)?[a-zA-Z0-9_.]+} 0
  49. newModeVar Mail wordWrap {0} 1
  50. newModeVar Mail wordBreakPreface {[^a-zA-Z0-9_\$]} 0
  51. newModeVar Mail autoMark    0    1
  52. set mailKeywords {{Subject:} {To:} {From:} {Cc:} {Date:} {Sender:}}
  53. regModeKeywords -k blue -e {>} Mail $mailKeywords
  54.  
  55.  
  56. #================================================================================
  57.  
  58.  
  59. #===============================================================================
  60. newModeVar Mail tossOnQueue        1    1
  61. newModeVar Mail    switchOnQueue    0    1
  62. #===============================================================================
  63. # Utility routines.
  64. proc eudoraFolder {} { nameObject euMF {'TEXT'()} [nullObject] }
  65. proc mailboxByName {name} { nameObject euMB "“$name”" [eudoraFolder] }
  66. proc mailboxByIndex {ind} { indexObject euMB $ind [eudoraFolder] }
  67. proc eudoraMessage {msg_id mailbox} { indexObject euMS $msg_id [mailboxByName $mailbox] }
  68. proc mailboxProperty {prop mailbox} { objectProperty 'CSOm' $prop [mailboxByName $mailbox] }
  69. proc messageProperty {prop msg_id mailbox} { objectProperty 'CSOm' $prop [eudoraMessage $msg_id $mailbox] }
  70.  
  71. # Get path-name for indicated mailbox
  72. proc mailboxPathName {name} {
  73.     extractPath [mailboxProperty euFS $name]
  74. }
  75.  
  76. proc mailboxPathIndex {ind} {
  77.     set res [objectProperty 'CSOm' euFS [mailboxByIndex $ind]]
  78.     return [extractPath $res]
  79. }
  80.  
  81. #===============================================================================
  82.  
  83.  
  84. proc checkMailPath {} {
  85.     set name [nameFromAppl CSOm]
  86.     launch $name
  87.     return [file tail $name]
  88. }
  89.  
  90. if {![info exists eudoraBoxes]} {
  91.     set eudoraBoxes {In Out}
  92. }
  93.  
  94. menu -n $mailMenu -p eudoraProc {
  95.     "<SbackgroundEudora"
  96.     "<Seudora"
  97.     "help"
  98.     "(-"
  99.     "/e<UnewMessage"
  100.     "cc"
  101.     "bcc"
  102.     "(-"
  103.     "/f<Usend"
  104.     "/g<U<Sreply"
  105.     "/g<U<I<SreplyToAll"
  106.     "(-"
  107.     "/,<SfinishNickname"
  108.     "/,<S<O<IsubstituteNickname"
  109.     "editNicknames"
  110.     "updateNicknames"
  111.     "(-"
  112.     "updateMailboxLists"
  113.     {menu -n open -p mailBoxProc -m {}}
  114.     {menu -n moveTo -p transferProc -m {}}
  115.     "(-"
  116.     {menu -n tellEudora -p eudoraProc {
  117.         "/k<UflushOutbox"
  118.         "/l<UcheckForMail"
  119.         "(-"
  120.         startNotifying
  121.         stopNotifying}}
  122.     {menu -n mailFlags -p mailFlagsProc {alertOnIncoming flushOnCheck immediateSend -- trashName}}
  123. }
  124. menu -n open -p mailBoxProc -m [concat [list "/h<UOpen Mailbox…" "(-"] $eudoraBoxes]
  125. menu -n moveTo -p transferProc -m [concat [list "/i<UMove To Trash" "/j<UMove To Mailbox…" "(-"] $eudoraBoxes]
  126.  
  127. if {![info exists eudoraNicknames] && [file exists "[file dirname [file dirname $PREFS]]:Eudora Folder:Eudora Nicknames"]} {
  128.     set eudoraNicknames "[file dirname [file dirname $PREFS]]:Eudora Folder:Eudora Nicknames"
  129. }
  130.  
  131.  
  132. proc updateNicknames {{arg ""}} {
  133.     global euNicknames eudoraNicknames
  134.     
  135.     if {![info exists eudoraNicknames] || ![file exists $eudoraNicknames]} {
  136.         if {![string length $arg]} {
  137.             alertnote {Please locate the file "Eudora Nicknames" via "Config:App Paths".}
  138.         }
  139.         return
  140.     }
  141.     
  142.     set fd [open $eudoraNicknames]
  143.     foreach a [split [read $fd] "\n"] {
  144.         if {[llength $a]} {
  145.             set euNicknames([lindex $a 1]) [lindex $a 2]
  146.         }
  147.     }
  148.     close $fd
  149. }
  150. updateNicknames quiet
  151.  
  152.  
  153. proc finishNickname {} {
  154.     global euNicknames
  155.     set pos [getPos]
  156.     backwardWord
  157.     set text [getText [getPos] $pos]
  158.     goto $pos
  159.     foreach w [array names euNicknames] {
  160.         if {[string match "$text*" $w]} {
  161.             lappend matches $w
  162.         }
  163.     }
  164.     if {![llength $matches]} {
  165.         beep
  166.     } else {
  167.         insertText [string range [largestPrefix $matches] [string length $text] end]
  168.     }
  169. }    
  170.  
  171.  
  172. proc editNicknames {} {
  173.     global eudoraNicknames
  174.     
  175.     edit -w "$eudoraNicknames"
  176. }
  177.  
  178.  
  179. proc substituteNickname {} {
  180.     global euNicknames
  181.     finishNickname
  182.     set to [getPos]
  183.     backwardWord
  184.     set from [getPos]
  185.     set text [getText $from $to]
  186.     goto $to
  187.  
  188.     if {[info exists euNicknames($text)]} {
  189.         replaceText $from $to [set euNicknames($text)]
  190.     }
  191. }
  192.  
  193. proc openMailbox {} {
  194.     global eudoraBoxes eudoraLastFolder modifiedVars
  195.     if {[info exists eudoraLastFolder]} {
  196.         set fold $eudoraLastFolder
  197.     } else {
  198.         set fold [lindex $eudoraBoxes 0]
  199.     }
  200.     set eudoraLastFolder [sPromptChoices "Open mailbox" $fold $eudoraBoxes]
  201.     mailBoxProc dummy $eudoraLastFolder
  202.     lappend modifiedVars eudoraLastFolder
  203. }
  204.  
  205.  
  206. proc moveToFolderProc {curr c} {
  207.     global eudoraBoxes
  208.     if {$c != "\t"} {return $c}
  209.     
  210.     set matches {}
  211.     foreach w $eudoraBoxes {
  212.         if {[string match "$curr*" $w]} {
  213.             lappend matches $w
  214.         }
  215.     }
  216.     if {![llength $matches]} {
  217.         beep
  218.     } else {
  219.         return [string range [largestPrefix $matches] [string length $curr] end]
  220.     }
  221.     return ""
  222. }
  223.  
  224.  
  225. proc moveToMailbox {} {
  226.     global eudoraLastFolder modifiedVars trashName
  227.     
  228.     if {[info exists eudoraLastFolder]} {
  229.         set fold $eudoraLastFolder
  230.     } else {
  231.         set fold $trashName
  232.     }
  233.     
  234.     set folder [statusPrompt -f "Move to ($fold): " moveToFolderProc]
  235.     if {[string length $folder]} {
  236.         doFolderMove $folder
  237.         set eudoraLastFolder $folder
  238.         lappend modifiedVars eudoraLastFolder
  239.     } else {
  240.         doFolderMove $fold
  241.     }
  242. }
  243.  
  244.  
  245. proc eudoraProc {menu item} {
  246.     global HOME mailMenu
  247.  
  248.     switch $item {
  249.         "eudora"        {launchForeAppl CSOm}
  250.         "backgroundEudora"        {launch [nameFromAppl CSOm]}
  251.         "help"            {edit -r "$HOME:Help:Eudora"}
  252.         "cc"            {eudoraCc}
  253.         "bcc"            {eudoraBcc}
  254.         "newMessage"    {mailNewMsg}
  255.         "reply"            {mailReplymsg}
  256.         "replyToAll"    {mailReplymsg 1}
  257.         "send"            {checkMailPath; mailSendCreatedMsg}
  258.         "flushOutbox"    {checkMailPath; mailFlushOut}
  259.         "checkForMail"    {checkMailPath; mailCheck}
  260.         "startNotifying" "checkMailPath; startNotifying"
  261.         "stopNotifying"    "checkMailPath; stopNotifying"
  262.         "moveToTrash"    {mailTrashmsg}
  263.         "Move To Trash"    {mailTrashmsg}
  264.         "Create New"    {eudoraNewMailbox}
  265.         "Delete"        {eudoraDeleteMailbox}
  266.         default            $item
  267.     }
  268. }
  269.  
  270. if {![info exists mailflushOnCheck]} {set mailflushOnCheck 1}
  271. if {![info exists mailalertOnIncoming]} {set mailalertOnIncoming 1}
  272. if {![info exists mailimmediateSend]} {set mailimmediateSend 0}
  273. markMenuItem mailFlags flushOnCheck $mailflushOnCheck
  274. markMenuItem mailFlags alertOnIncoming $mailalertOnIncoming
  275. markMenuItem mailFlags immediateSend $mailimmediateSend
  276.  
  277.  
  278. proc mailFlagsProc {menu flag} {
  279.     global mail$flag modifiedVars trashName
  280.  
  281.     if {$flag == "trashName"} {
  282.         set trashName [prompt "Trash folder name:" $trashName]
  283.         lappend modifiedVars trashName
  284.         return
  285.     }
  286.     
  287.  
  288.     set mail$flag [expr 1 - [set mail$flag]]
  289.     lappend modifiedVars mail$flag
  290.     markMenuItem mailFlags $flag [set mail$flag]
  291. }
  292.  
  293.  
  294. proc mailBoxProc {menu item} {
  295.     global inboxMembers ALPHA eudoraBoxes modifiedVars
  296.     global tileLeft tileTop tileHeight errorHeight defWidth
  297.  
  298.     if {$item == "Open Mailbox"} {
  299.         return [openMailbox]
  300.     }
  301.     
  302.     killMailboxWindow
  303.  
  304.     checkMailPath
  305.     switchTo $ALPHA
  306.  
  307.     global trashedMsgs$item
  308.     set trashedMsgs$item {}
  309.     
  310.     set inboxMembers {}
  311.     set text {}
  312.     set ind 1
  313.     foreach msg [mailSenders $item] {
  314.         set from [mailAddr [lindex $msg 0]]
  315.         set tag {}
  316.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  317.             if {![string length $tag]} {
  318.                 set tag { <2>}
  319.             } else {
  320.                 regexp {[0-9]+} $tag tag
  321.                 set tag " <[expr $tag + 1]>"
  322.             }
  323.         }
  324.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t∞$item∞$ind\r" "$from$tag" [lindex $msg 1]]
  325.         lappend inboxMembers $from$tag
  326.         incr ind
  327.     }
  328.     if {![string length $text]} {
  329.         alertnote "No messages in '$item'!"
  330.         return
  331.     }
  332.     
  333.     new -n "* MAILBOX '$item' *" -g $tileLeft $tileTop $defWidth $errorHeight
  334.     global winModes
  335.     set name [lindex [winNames] 0]
  336.     changeMode [set winModes($name) Brws]
  337.  
  338.     insertText "(<cr> to go to message)\r-----\r$text"
  339.     
  340.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  341.     setWinInfo dirty 0
  342.     setWinInfo read-only 1
  343.     message ""
  344. }
  345.  
  346. proc eudoraNewMailbox {} {
  347. }
  348.  
  349.  
  350. proc eudoraDeleteMailbox {} {
  351. }
  352.  
  353.  
  354. proc killMailboxWindow {} {
  355.     if {[set ind [lsearch [winNames] {*MAILBOX*}]] >= 0} {
  356.         set win [lindex [winNames] $ind]
  357.         bringToFront $win
  358.         killWindow
  359.     }
  360. }
  361.  
  362.  
  363. proc mailGotoMatch {} {
  364.     if {[regexp {∞(.+)∞([0-9]+)} [getText [lineStart [getPos]] [nextLineStart [getPos]]] dummy folder ind]} {
  365.         global trashedMsgs$folder
  366.         
  367.         set deleted 0
  368.         for {set i 1} {$i < $ind} {incr i} {
  369.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  370.                 incr deleted
  371.             }
  372.         }
  373.         mailOpen $folder [expr $ind - $deleted] $ind
  374.     }
  375. }
  376.  
  377.  
  378. proc mailAddr {name} {
  379.     if {![regexp {<(.*)>} $name dummy addr]} {
  380.         regexp {^[^ ]+} $name addr
  381.     }
  382.     return $addr
  383. }
  384.  
  385.  
  386. proc mailSenders {folder} {
  387.     set cnt [mailCountMsgs $folder]
  388.     set msgs {}
  389.     for {set i 1} {$i <= $cnt} {incr i} {
  390.         set subject {}
  391.         if {![regexp -nocase {From: (.*)} [mailGetField from $folder $i] dummy from]} {
  392.             error "No from field!"
  393.         }
  394.         regexp {Subject: (.*)} [mailGetField subject $folder $i] dummy subject
  395.         lappend msgs [list $from $subject]
  396.     }
  397.     return $msgs
  398. }    
  399.  
  400.  
  401. proc eudoraCc {} {
  402.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {cc:.*} 0]}]} {
  403.         goto [lindex $res 0]
  404.         endOfLine
  405.     } else {
  406.         beginningOfBuffer
  407.         nextLine
  408.         insertText "Cc: \r"
  409.         backwardChar
  410.     }
  411. }
  412.  
  413.  
  414. proc eudoraBcc {} {
  415.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {bcc:.*} 0]}]} {
  416.         goto [lindex $res 0]
  417.         endOfLine
  418.     } else {
  419.         beginningOfBuffer
  420.         nextLine
  421.         insertText "Bcc: \r"
  422.         backwardChar
  423.     }
  424. }
  425.  
  426.  
  427. proc mailFlushOut {} {
  428.     global MailmodeVars
  429.     message "Telling Eudora to flush messages…"
  430.  
  431.     AEBuild 'CSOm' CSOm eCon eSen bool(«01») eChk bool(«00»)
  432.     message ""
  433. }
  434.  
  435.  
  436. proc mailCheck {} {
  437.     global MailmodeVars mailflushOnCheck
  438.     message "Told Eudora to check for new mail…"
  439.  
  440.     AEBuild 'CSOm' CSOm eCon eSen bool(«0$mailflushOnCheck») eChk bool(«01»)
  441. }
  442.  
  443.  
  444. proc mailReplymsg {{toall 0}} {
  445.     global inboxMembers
  446.  
  447.     set prefix "> "
  448.     set res [search -s -f 1 -r 1 {^>==} 0]
  449.     set header [getText 0 [lindex $res 0]]
  450.     
  451.     set from [mailGetFrom]
  452.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  453.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  454.  
  455.     regsub -all "\r" $body "\r$prefix" body
  456.     mailNewMsg $from "" "" "Re: $subject" "\r$prefix$body\r"
  457. }
  458.  
  459. proc transferProc {menu item} {
  460.     if {$item == "Move To Trash"} {
  461.         mailTrashmsg
  462.     } elseif {$item == "Move To Mailbox"} {
  463.         moveToMailbox
  464.     } else {
  465.         doFolderMove $item
  466.     }
  467. }
  468.  
  469.  
  470. proc mailTrashmsg {} {
  471.     global trashName
  472.     doFolderMove $trashName
  473. }
  474.  
  475. proc doFolderMove {toFolder} {
  476.     # Is this a summary or msg window?
  477.     if {[regexp "MAILBOX" [lindex [winNames] 0]]} {
  478.         if {![regexp {∞(.*)∞([0-9]+)} [getText [getPos] [nextLineStart [getPos]]] dummy folder orig]} {
  479.             beep
  480.             return
  481.         }
  482.         if {$toFolder == $folder} return
  483.         global trashedMsgs$folder
  484.  
  485.         set deleted 0
  486.         for {set i 1} {$i < $orig} {incr i} {
  487.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  488.                 incr deleted
  489.             }
  490.         }
  491.         set number [expr $orig - $deleted]
  492.         set summary 1
  493.     } else {
  494.         set pos [lindex [search -f 1 -r 1 {^Msg} 0] 0]
  495.         set text [getText $pos [nextLineStart $pos]]
  496.         regexp {"([^"]+)" \(([0-9]+)\).*"([^"]+)"} $text dummy number orig folder
  497.         if {$toFolder == $folder} return
  498.         set summary 0
  499.  
  500.         global trashedMsgs$folder
  501.     }
  502.     
  503.     message "Moving msg $number ($orig) of folder '$folder' to '$toFolder'"
  504.     moveMsg $number $folder $toFolder
  505.     if {!$summary} killWindow
  506.  
  507.     lappend trashedMsgs$folder $orig
  508.     
  509.     # Find summary info and delete it
  510.     set win [lindex [winNames] 0]
  511.     if {[regexp "MAILBOX" $win]} {
  512.         setWinInfo read-only 0
  513.     
  514.         set inds [search -f 1 -r 1 "∞$folder∞$orig\$" 0]
  515.         set pos [lindex $inds 0]
  516.         deleteText [lineStart $pos] [nextLineStart $pos]
  517.     
  518.         if {[string length [search -n -f 1 -r 0 {∞} 0]]} {
  519.             setWinInfo dirty 0
  520.             setWinInfo read-only 1
  521.     
  522.             nextLine
  523.             upBrowse
  524.         } else {
  525.             setWinInfo dirty 0
  526.             killWindow
  527.         }
  528.     }
  529. }
  530.  
  531.     
  532. proc mailGetFrom {} {
  533.     set res [search -s -f 1 -r 1 {>==} 0]
  534.     set header [getText 0 [lindex $res 0]]
  535.     if {[regexp {From: ([^\r]*)} $header dummy from]} {
  536.         return [mailAddr $from]
  537.     }
  538.     error "No from line"
  539. }
  540.  
  541.     
  542.  
  543. proc mailSendCreatedMsg {} {
  544.     global MailmodeVars mailimmediateSend
  545.     
  546.     set name [checkMailPath]
  547.     set res [search -s -f 1 -r 0 {>==text follows this line==<} 0]
  548.     set header [getText 0 [lindex $res 0]]
  549.     
  550.     if {![regexp {To: ([^\r]*)} $header dummy to]} {set to ""}
  551.     if {![regexp {[Cc]+: ([^\r]*)} $header dummy cc]} {set cc ""}
  552.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  553.  
  554.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  555.     
  556.     mailCreateMsg
  557.     mailSetField to $to
  558.     mailSetField cc $cc
  559.     mailSetField subject $subject
  560.     mailSetField "" $body
  561.     
  562.     if {$MailmodeVars(tossOnQueue)} {
  563.         setWinInfo dirty 0
  564.         killWindow
  565.     }
  566.  
  567.     mailQueueLast
  568.  
  569.     if {$MailmodeVars(switchOnQueue)} {
  570.         switchTo $name
  571.     }
  572.  
  573.     if {$mailimmediateSend} {
  574.         mailFlushOut
  575.     } else {
  576.         message "Message queued…"
  577.     }
  578. }
  579.  
  580.     
  581. proc mailNewMsg {{to ""} {cc ""} {bcc ""} {subject ""} {body ""}} {
  582.     new -n "New Mail"
  583.     global winModes
  584.     set name [lindex [winNames] 0]
  585.     changeMode [set winModes($name) Mail]
  586.  
  587.     insertText "To: $to\rSubject: $subject\r>==text follows this line==<\r$body"
  588.     setWinInfo dirty 0
  589.     goto 0
  590.     centerRedraw
  591.     mailTab
  592. }
  593.  
  594.  
  595. proc mailTab {} {
  596.     global mailKeywords
  597.     if {[catch {search -s -f 1 -r 1 -i 1 "([join $mailKeywords {|}]|^>)" [getPos]} res]} {
  598.         insertText "\t"
  599.         return
  600.     }
  601.     if {[lookAt [lindex $res 0]] == ">"} {
  602.         select [nextLineStart [lindex $res 1]] [maxPos]
  603.     } else {
  604.         goto [expr [lindex $res 1] + 1]
  605.         endLineSelect
  606.     }
  607. }
  608. bind '\t'                         mailTab Mail
  609.  
  610.  
  611. proc mailOpen {folder i originalNum} {
  612.     global tileLeft tileTop tileHeight trashedMsgs$folder defWidth
  613.     
  614.     set from [mailGetField From $folder $i]
  615.     set to [mailGetField To $folder $i]
  616.     set subject [mailGetField Subject $folder $i]
  617.     set sender [mailGetField Sender $folder $i]
  618.     set date [mailGetField Date $folder $i]
  619.     set cc [mailGetField cc $folder $i]
  620.     set contents [mailGetField "" $folder $i]
  621.     
  622. #===============================================================================
  623.     global tileHeight tileTop tileLeft errorHeight errorDisp defWidth
  624.     set top $tileTop
  625.     set geo [getGeometry]
  626.     if {([lindex $geo 0] != $tileLeft) || ([lindex $geo 1] != $top) || ([lindex $geo 2] != $defWidth) || ([lindex $geo 3] != $errorHeight) } {
  627.         moveWin $tileLeft $top
  628.         sizeWin $defWidth $errorHeight
  629.     }
  630.     set mar 28
  631.     incr top [expr $errorHeight + $mar]
  632. #===============================================================================
  633.     new -n "MAIL" -g $tileLeft $top $defWidth [expr $errorDisp - 5]
  634.  
  635.     global winModes
  636.     set name [lindex [winNames] 0]
  637.     changeMode [set winModes($name) Mail]
  638.  
  639.     set text {}
  640.     if {[string length $subject]} {append text "$subject\r"}
  641.     if {[string length $to]} {append text "$to\r"}
  642.     if {[string length $from]} {append text "$from\r"}
  643.     if {[string length $date]} {append text "$date\r"}
  644.     if {[string length $cc]} {append text "$cc\r"}
  645.     if {[string length $sender]} {append text "$sender\r"}
  646.     append text "Msg \"$i\" ($originalNum) of mailbox \"$folder\"     Reply     Trash\r"
  647.     insertText "${text}>===============================================================================
  648. $contents
  649. "
  650.     goto 0
  651.     goto [lindex [search -f 1 -m 0 -r 1 {^Msg "} 0] 0]
  652.     set pos [getPos]
  653.     regexp -indices {([0-9]+).*mailbox "(.+)".*(Reply).*(Trash)} [getText $pos [nextLineStart $pos]] dummy num fold rep tra
  654.     colorSelectPos [expr $pos + [lindex $num 0]] [expr 1 + $pos + [lindex $num 1]] bold 12
  655.     colorSelectPos [expr $pos + [lindex $fold 0]] [expr 1 +$pos + [lindex $fold 1]] bold 12
  656.     hyperSelectPos [expr $pos + [lindex $rep 0]] [expr 1 +$pos + [lindex $rep 1]] "mailReplymsg"
  657.     hyperSelectPos [expr $pos + [lindex $tra 0]] [expr 1 +$pos + [lindex $tra 1]] "mailTrashmsg"
  658.  
  659.     goto 0
  660.     setWinInfo dirty 0
  661.     setWinInfo read-only 1
  662.     centerRedraw
  663. }
  664.  
  665. proc colorSelectPos {from to ind ind2} {
  666.     insertColorEscape $from $ind
  667.     insertColorEscape $to $ind2
  668. }
  669.  
  670. proc hyperSelectPos {from to text} {
  671.     if {$from == $to} {
  672.         beep
  673.         return
  674.     }
  675.     insertColorEscape $from 3
  676.     insertColorEscape $from 15 $text
  677.     insertColorEscape $to 12
  678.     insertColorEscape $to 0
  679. }
  680.  
  681. proc mailFixMenus {} {
  682.     global mailMenu
  683.     
  684.     set ins {}
  685.     set outs {}
  686.     
  687.     set cnt [mailCountMsgs in]
  688.     for {set i 1} {$i <= $cnt} {incr i} {
  689.         lappend ins [mailGetField from in $i]
  690.     }
  691.     menu -n in {}
  692.     foreach item $ins {
  693.         addMenuItem -l "" in $item
  694.     }
  695.     
  696.     set cnt [mailCountMsgs out]
  697.     for {set i 1} {$i <= $cnt} {incr i} {
  698.         lappend outs [mailGetField from out $i]
  699.     }
  700.     menu -n out {}
  701.     foreach item $outs {
  702.         addMenuItem -l "" out $item
  703.     }
  704. }
  705.  
  706.  
  707. # make message at end of mailbox "out" of mail folder ""
  708. proc mailCreateMsg {} {
  709.     createThingAtEnd 'CSOm' [mailboxByName Out] euMS
  710. }
  711.  
  712.  
  713. # Move msg w/ specified index between folders, including to Trash.
  714. proc moveMsg {msg infolder outfolder} {
  715.     AEBuild -r 'CSOm' core move {----} "obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:“$infolder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" {insh} "insl\{kobj:obj \{form:name, want:type(euMB), seld:“$outfolder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}, kpos:end \}"
  716. }
  717.  
  718.  
  719. # set field "fld" of message 0 to "to"
  720. proc mailSetField {fld to} {
  721.     AEBuild -r 'CSOm' core setd {----} "obj \{form:name, want:type(euFd), seld:“$fld”, from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data "“$to”"
  722. }
  723.  
  724. proc mailGetField {field folder msg} {
  725.     if {[catch {getObjectData 'CSOm' euFd $field [eudoraMessage $msg $folder]} res]} {
  726.         return ""
  727.     } else {
  728.         return $res
  729.     }
  730. }
  731.  
  732. # obj {want:type('prop'), from:obj {form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:“$folder”, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}}, form:'prop', seld:type('euST')}
  733.  
  734. proc mailMsgStatus {folder msg} {
  735.     if {[catch {AEBuild -r 'CSOm' core getd {----} "obj \{want:type('prop'), from:obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:“$folder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}, form:'prop', seld:type('euST')\}"} text]} {
  736.         return ""
  737.     }
  738.     set from [string first "“" $text]
  739.     set to [string first "”" $text]
  740.     return [string range $text [expr $from + 1] [expr $to - 1]]
  741. }
  742.  
  743. proc mailQueueLast {} {
  744.     AEBuild -r 'CSOm' CSOm eQue ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}}
  745. }
  746.  
  747. # CSOm\eAtc{'----':obj {form:indx, want:type(euMS), seld:1, from:'null'()}, eDcl:[fss («486172643A4465736B746F7020466F6C6465723A62756773»)]}
  748. proc mailAttachmentDoesntWork {name} {
  749.     AEBuild -r 'CSOm' CSOm eAtc ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}} eDcl [makeAlis $name]
  750. }
  751.  
  752. # core\setd{'----':obj {form:prop, want:type(prop), seld:type(euPY), from:obj {form:indx, want:type(euMS), seld:1, from:'null'()}}, data:1}
  753. proc mailSetNumberProperty {prop to} {
  754.     AEBuild -r 'CSOm' core setd ---- "obj \{form:prop, want:type(prop), seld:type($prop), from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data $to
  755. }    
  756.  
  757.  
  758. proc mailCountMsgs {mbox} {
  759.     return [countObjects 'CSOm' [mailboxByName "$mbox"]  euMS]
  760. }
  761.  
  762. proc mailCountMailboxes {} {
  763.      return [countObjects 'CSOm' [eudoraFolder] euMB]
  764. }
  765.     
  766.  
  767. proc updateMailboxLists {} {
  768.     set num [mailCountMailboxes]
  769.     for {set i 1} {$i <= $num} {incr i} {
  770.         set name [file tail [mailboxPathIndex $i]]
  771.         message $name
  772.         lappend boxes $name
  773.     }
  774.     
  775.     global eudoraBoxes modifiedVars
  776.     lappend modifiedVars eudoraBoxes
  777.     set eudoraBoxes $boxes
  778.     menu -n open -p mailBoxProc -m $eudoraBoxes
  779.     menu -n moveTo -p transferProc -m $eudoraBoxes
  780.     message "done."
  781. }
  782.  
  783.  
  784. #===============================================================================
  785.  
  786. eventHandler CSOm eNot "eudoraHandler"
  787.  
  788. # a sample 'msgs': obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:“In”}, form:indx, seld:18}, obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:“In”}, form:indx, seld:19}
  789. proc eudoraHandler {it} {
  790.     global blah mailalertOnIncoming
  791.     message ""
  792.     if {[regexp {eWHp:wArv.*\[(obj.*)\], &repq} $it dum1 msgs]} {
  793.         set ids [getMsgIDs $msgs]
  794.         if {$mailalertOnIncoming} {
  795.             mailBrowser In $ids
  796.         }
  797.     } else {
  798.         message "No mail"
  799.     }
  800. }
  801.  
  802.  
  803. proc mailBrowser {folder ids} {
  804.     global inboxMembers ALPHA
  805.     global tileLeft tileTop defWidth tileHeight errorHeight
  806.  
  807.     checkMailPath
  808.     switchTo $ALPHA
  809.  
  810.     global trashedMsgs$folder
  811.     set trashedMsgs$folder {}
  812.     
  813.     set inboxMembers {}
  814.     set text {}
  815.  
  816.     foreach id $ids {
  817.         regexp {From: (.*)} [mailGetField from $folder $id] dummy from
  818.         set from [mailAddr $from]
  819.         set subject {}
  820.         regexp {Subject: (.*)} [mailGetField subject $folder $id] dummy subject
  821.         set tag {}
  822.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  823.             if {![string length $tag]} {
  824.                 set tag { <2>}
  825.             } else {
  826.                 regexp {[0-9]+} $tag tag
  827.                 set tag " <[expr $tag + 1]>"
  828.             }
  829.         }
  830.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t∞In∞$id\r" "$from$tag" $subject]
  831.         lappend inboxMembers $from$tag
  832.     }
  833.     if {![string length $text]} {
  834.         alertnote "No messages!"
  835.         return
  836.     }
  837.     
  838.     if {[set ind [lsearch [winNames] "*Incoming MAILBOX*"]] >= 0} {
  839.         bringToFront [lindex [winNames] $ind]
  840.         setWinInfo read-only 0
  841.         endOfBuffer
  842.         insertText $text
  843.     } else {
  844.         killMailboxWindow
  845.         new -n "* Incoming MAILBOX *" -g $tileLeft $tileTop $defWidth $errorHeight
  846.         global winModes
  847.         set name [lindex [winNames] 0]
  848.         changeMode [set winModes($name) Brws]
  849.     
  850.         insertText "(<cr> to go to message)\r-----\r$text"
  851.     }
  852.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  853.     setWinInfo dirty 0
  854.     setWinInfo read-only 1
  855.     message ""
  856. }
  857.  
  858.  
  859. proc getMsgIDs {text} {
  860.     if {[regexp -indices {seld:([0-9]+)} $text dummy ind]} {
  861.         return [concat [string range $text [lindex $ind 0] [lindex $ind 1]] [getMsgIDs [string range $text [lindex $ind 1] end]]]
  862.     }
  863. }
  864.  
  865. proc startNotifying {} {
  866.     global HOME ALPHA quitHooks
  867.     
  868.     AEBuild 'CSOm' CSOm nIns ---- [makeAlis "$HOME:$ALPHA"]
  869. #     lappend quitHooks stopNotifying
  870. }
  871.  
  872. proc stopNotifying {} {
  873.     global HOME ALPHA
  874.     
  875.     AEBuild 'CSOm' CSOm nRem ---- [makeAlis "$HOME:$ALPHA"]
  876. }
  877.